نمایش Resolutions سیستم

برای این کار API زیر را باز کنید

Private Declare Function GetSystemMetrics Lib "User32" (ByVal index As Long) As Long

دستور زیر را به همراه API در جنرال بنویسید

Dim X As Long, Y As Long

برای دکمه یا هر چیز دیگری دستور زیر را بنویسید....

    X = GetSystemMetrics(0)
    Y = GetSystemMetrics(1)

    MsgBox "Resolutions is : " & CStr(X) & " X " & CStr(Y), vbExclamation, "Monitor"

....موفق باشد...

نظر بدین